home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d20
/
btd_301.arc
/
BTD3.BAT
< prev
next >
Wrap
DOS Batch File
|
1991-11-30
|
3KB
|
159 lines
echo off
cls
: *****************************************************
: This batch file uses BTD's errorlevel exit mode
: *****************************************************
: Start up your FOSSIL
btf1m -m-
: Start up BTD with a configuration file
:loop
btd btd.cf3
echo .
: Check all BTD's returned errorlevels
: These are our errors
if errorlevel = 246 goto exit
if errorlevel = 240 goto midnight
: Trap user exit levels - NONE defined
if errorlevel = 30 goto userexit
: These are ours - exit mode specific
if errorlevel = 29 goto bunknown
if errorlevel = 28 goto b38400
if errorlevel = 27 goto b19200
if errorlevel = 26 goto b9600
if errorlevel = 25 goto b4800
if errorlevel = 24 goto b2400
if errorlevel = 23 goto b1200
if errorlevel = 22 goto b600
if errorlevel = 21 goto b300
if errorlevel = 20 goto b7200
if errorlevel = 19 goto b1275
if errorlevel = 18 goto bbslocal
echo ALL OKAY...
goto loop
:midnight
echo BTD: Midnight rollover
goto loop
:userexit
echo BTD: User event exit (30-239)
goto loop
:bbslocal
echo BTD: local logon
max -k -lmax01.log
goto exit
:bunknown
echo BTD: Unknown remote logon speed
goto loop
:b38400
echo BTD: Remote logon at 38400
max -b38400 -n1 -lmax01.log
goto loop1
:b19200
echo BTD: Remote logon at 19200
max -b19200 -n1 -lmax01.log
goto loop1
:b9600
echo BTD: Remote logon at 9600
max -b9600 -n1 -lmax01.log
goto loop1
:b7200
echo BTD: Remote logon at 7200
max -b7200 -n1 -lmax01.log
goto loop1
:b4800
echo BTD: Remote logon at 4800
max -b4800 -n1 -lmax01.log
goto loop1
:b2400
echo BTD: Remote logon at 2400
max -b2400 -n1 -lmax01.log
goto loop1
:b1275
echo BTD: Remote logon at 1275
max -b600 -n1 -lmax01.log
goto loop1
:b1200
echo BTD: Remote logon at 1200
max -b1200 -n1 -lmax01.log
goto loop1
:b600
echo BTD: Remote logon at 600
max -b600 -n1 -lmax01.log
goto loop1
:b300
echo BTD: Remote logon at 300
max -b300 -n1 -lmax01.log
:loop1
: This from Maximus
if errorlevel = 255 goto exit
: These from Maximus
if errorlevel = 16 goto stackerr
if errorlevel = 12 goto echonet
if errorlevel = 11 goto netmail
if errorlevel = 5 goto notechonet
if errorlevel = 4 goto maxerr3
if errorlevel = 3 goto maxerr2
if errorlevel = 2 goto callergone
if errorlevel = 1 goto maxerr1
goto loop
:stackerr
echo Max: internal stack error
goto exit
:echonet
echo Max: Echo/Net Mail entered
goto loop
:netmail
echo Max: Net Mail entered
goto loop
:notechonet
echo Max: No Echo/Net Mail entered
goto loop
:maxerr3
echo Max: Error Condition 3
goto exit
:maxerr2
echo Max: Error Condition 2
goto exit
:callergone
echo Max: Caller vanished during log-on
goto loop
:maxerr1
echo Max: Error condition 1
:exit